home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr35
/
bank_ppe.zip
/
BANK.PPE
(
.txt
)
next >
Wrap
PCBoard Programming Language Executable
|
1993-05-12
|
3KB
|
167 lines
;------------------------------------------------------------------------------
; .ss.
; `²²'
; .,sS$Ss,,s$ .,sS$$$Ss. .,sS$Ss,,s$ .ss. .sSs.
; .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
; $$$' .$$$' $$$²Sçsµ²' .$$$' .$$$'.$$$' .$$$' `$$b.
; $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$' ;$$$
; `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
; .sS²°$$$²²°"' d²°'
; .$$² .$$'
; $$$.,d$$'
; `²S$$S²'
;------------------------------------------------------------------------------
; P.P.L.X. 2.OO (C)1996 - Lone Runner / AEGiS CoRP'96
;------------------------------------------------------------------------------
; PPE 1.OO (plain) - Analysis ON - Postprocessing ON
;------------------------------------------------------------------------------
Integer INTEGER001
Integer INTEGER002
Integer INTEGER003
String STRING002
String TSTRING003(6)
String TSTRING004(6)
String STRING005
String TSTRING006(5)
;------------------------------------------------------------------------------
INTEGER001 = 90
INTEGER003 = 0
TSTRING006(1) = "@X79"
TSTRING006(2) = "@X7B"
TSTRING006(3) = "@X7C"
TSTRING006(4) = "@X7E"
STRING002 = TokenStr()
Tokenize STRING002
INTEGER002 = 1
GetToken TSTRING003(INTEGER002)
While (TSTRING003(INTEGER002) <> "") Do
INTEGER002 = INTEGER002 + 1
GetToken TSTRING003(INTEGER002)
EndWhile
GetUser
If (Left(U_Notes(4), 4) <> "BANK") Then
TSTRING004(1) = "BANK"
TSTRING004(2) = "TIME"
TSTRING004(3) = 0
Else
Tokenize U_Notes(4)
INTEGER002 = 1
GetToken TSTRING004(INTEGER002)
While (TSTRING004(INTEGER002) <> "") Do
INTEGER002 = INTEGER002 + 1
GetToken TSTRING004(INTEGER002)
EndWhile
Endif
Select Case (Left(TSTRING003(1), 1))
Case "D"
PrintLn "@POS:10@", TSTRING006(1), TSTRING004(1), " ", TSTRING004(2), ": ", TSTRING006(2), TSTRING004(3), " min."
Case "S"
If (Left(TSTRING003(2), 1) == "T") Then
INTEGER003 = TSTRING003(3)
Else
STRING005 = TSTRING006(3) + "Incorrect command syntex - " + TSTRING006(1) + "BANK SAVE TIME nn"
Goto LABEL001
Endif
If (INTEGER003 > MinLeft() - 5) Then
STRING005 = MinLeft() - 5
STRING005 = TSTRING006(4) + "The maximum time available to save is " + TSTRING006(1) + STRING005 + TSTRING006(4) + " min."
Goto LABEL001
ElseIf (INTEGER003 + TSTRING004(3) > INTEGER001) Then
STRING005 = INTEGER001 - TSTRING004(3)
STRING005 = TSTRING006(4) + "The maximum time you can add to the bank is " + TSTRING006(1) + STRING005 + TSTRING006(4) + " min."
Goto LABEL001
Else
TSTRING004(3) = INTEGER003 + TSTRING004(3)
U_Notes(4) = TSTRING004(1) + " " + TSTRING004(2) + " " + TSTRING004(3)
PutUser
AdjTime -INTEGER003
Endif
PrintLn "@POS:10@", TSTRING006(2), INTEGER003, TSTRING006(4), " min. added to bank"
Case "R"
If (Left(TSTRING003(2), 1) == "T") Then
INTEGER003 = TSTRING003(3)
Else
STRING005 = TSTRING006(3) + "Incorrect command syntex - " + TSTRING006(1) + "BANK RESTORE TIME nn"
Goto LABEL001
Endif
If (INTEGER003 > TSTRING004(3)) Then
STRING005 = TSTRING004(3)
STRING005 = TSTRING006(4) + "The maximum time available to restore is " + TSTRING006(1) + STRING005 + TSTRING006(4) + " min."
Goto LABEL001
Else
TSTRING004(3) = TSTRING004(3) - INTEGER003
U_Notes(4) = TSTRING004(1) + " " + TSTRING004(2) + " " + TSTRING004(3)
PutUser
AdjTime INTEGER003
Endif
PrintLn "@POS:11@", TSTRING006(2), INTEGER003, TSTRING006(4), " min. added to use"
Case Else
PrintLn "@POS:4@", TSTRING006(4), "Syntex is: ", TSTRING006(1), "BANK DISPLAY,clrs(4), ", TSTRING006(1), "BANK SAVE TIME nn", TSTRING006(4), ", or ", TSTRING006(1), "BANK RESTORE TIME ", TSTRING006(1), "nn"
End Select
:LABEL001
If (STRING005 <> "") Then
PrintLn STRING005
Endif
End
;------------------------------------------------------------------------------
;
; Usage report (before postprocessing)
;
; ■ Statements used :
;
; 1 End
; 28 Goto
; 28 Let
; 5 PrintLn
; 12 If
; 1 GetUser
; 2 PutUser
; 2 AdjTime
; 2 Tokenize
; 4 GetToken
;
;
; ■ Functions used :
;
; 1 -
; 33 +
; 4 -
; 5 ==
; 4 <>
; 3 >
; 12 !
; 6 Left()
; 2 MinLeft()
; 1 TokenStr()
;
;------------------------------------------------------------------------------
;
; Analysis flags : WA
;
; W - Write user ■ 5
; Program writes a user record. Although this may be normal for a
; User Editor, it may also be a way to modify an account level.
; ■ Search for : PUTUSER
;
; A - Adjust online time remaining ■ 5
; Program modify the amount of online time remaining, this may
; be a way to bypass time limits
; ■ Search for : ADJTIME
;
;------------------------------------------------------------------------------
;
; Postprocessing report
;
; 0 For/Next
; 2 While/EndWhile
; 7 If/Then or If/Then/Else
; 1 Select Case
;
;------------------------------------------------------------------------------
; AEGiS Corp - Break the routines, code against the machines!
;------------------------------------------------------------------------------